home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / ghostbbs.zip / ID.REC < prev    next >
Text File  |  1986-04-20  |  2KB  |  28 lines
  1.   sysid     = record
  2.                 user: person;                   { handle }
  3.                 user2:longname;                 {real name}
  4.                 addr :longname;                 {street address}
  5.                 city :longname;                 {city}
  6.                 szip :longname;                 {state & zip }
  7.                 phnn :name;                     {phone number}
  8.                 exfl: byte;                     {EXPERT USER}
  9.                 lsto: name;                     {LAST TIME ON}
  10.                intlg: name;                     {date first logged on}
  11.                 dld : integer;                  { # of downloads }
  12.                 uld : integer;                  { # of uploads }
  13.                 mptd: integer;                  { # of messages posted }
  14.                 lgdn: integer;                  { # of logons }
  15.                 lstm: array[1..20] of integer;  {LAST MESSAGE READ}
  16.                 pass: name;                     {PASSWORD}
  17.                  acc: byte;                     {ACCESS LEVEL}
  18.                speca: byte;                     {special access}
  19.                 clr:  name;                     {CLEAR SCREEN CHARATERS}
  20.                 bsp:  char;                     {BACKSPACE CHAR}
  21.                 lnf:  char;                     {LINEFEED CHAR}
  22.                 upc:  boolean;                  {UPPER CASE ONLY}
  23.                 wid:  byte;                     {SCREEN WIDTH}
  24.                 tdt:  byte;                     {today's date}
  25.                 tmo:  byte;                     {last month on}
  26.                 tyr:  byte;                     {last year on}
  27.                 tto:  byte;                     {min on today}
  28.               end;